   1 CLEAR ;FC=12;BC=0
   2 CX=-19;CY=26;PRINT "2000 AD";FOR E=1TO 250;NEXT E
   4 CY=-30;CX=0;INPUT "GAME PT. >"Z
  10 CLEAR ;NT=0;&(10)=0;&(2)=14;&(3)=15;&(0)=0;&(1)=0
  16 &(9)=128;K=0;J=0
  20 BOX 0,-22,160,1,1
  30 BOX 0,-9,160,1,1
  40 BOX 0,0,160,1,1
  50 BOX 0,4,160,1,1
  52 BOX 0,7,160,1,3
  54 BOX 0,-18,160,50,3
  70 LINE 39,6,4;LINE 79,-6,3;LINE 24,6,4
 100 LINE 79,-29,3;LINE 9,6,4;LINE 55,-44,3;LINE 4,6,4
 150 LINE 20,-44,3;LINE 0,6,4;LINE -20,-44,3
 170 LINE -5,6,4
 180 LINE -60,-44,3
 190 LINE -15,6,4
 200 LINE -80,-28,3
 210 LINE -30,6,4
 220 LINE -80,-6,3
 248 LINE -80,7,0
 250 FOR X=-85TO 85STEP RND (15)+8;Y=RND (20)+6
 255 IF Y<15Y=7
 260 LINE X,Y,1;BOX X,Y+RND (34),1,1,1;NEXT X
 262 LINE 79,RND (15)+7,1
 300 GOSUB 16000
 350 &(9)=128;FC=14
 365 &(10)=175
 408 X=X+JX(1)×Q
 410 Y=Y+JY(1)×Q
 411 IF X>79X=72
 414 IF X<-79X=-72
 416 IF Y>42Y=38
 418 IF Y<-42Y=-38
 420 BOX X,Y,6,1,3;BOX X,Y+1,3,1,3;BOX X,Y,6,1,3;BOX X,Y+1,3,1,3
 435 Q=10
 440 D=D+JX(2)×Q
 450 S=S+JY(2)×Q
 452 IF D>79D=75
 454 IF D<-79D=-75
 456 IF S<-41S=-38
 458 IF S>6S=5
 460 BOX D,S,3,3,3;BOX D,S,3,3,3
 480 LINE X,Y,4
 490 H=(KN(1)÷16)×10+4
 495 P=(KN(2)÷16)×10
 700 IF TR(1)=1GOTO 950
 800 IF TR(2)=1GOTO 1900
 900 GOTO 408
 950 &(16)=18;&(17)=17;&(18)=17;&(19)=14;&(20)=65;&(21)=140;&(22)=151;&(23)=0
1000 FOR F=1TO 2
1010 LINE -(H),S,3;LINE X,Y,4;NEXT F
1015 GOSUB 15000
1050 H=-(H)
1052 IF H<D+6IF H>D-6GOTO 1100
1060 GOTO 1900
1100 FOR V=1TO 8
1105 LINE D,S,4
1110 LINE D+RND (6),S+RND (4),3;LINE D+RND (6),S+RND (4),3
1115 &(21)=255;&(23)=69;&(16)=77;&(18)=200;&(19)=19;&(22)=36;&(20)=139
1118 NEXT V
1119 GOSUB 15000
1120 K=K+1;IF K=ZGOTO 11000
1125 GOSUB 16000
1140 GOTO 1900
1490 GOTO 14050
1900 IF TR(2)=1GOTO 2000
1960 GOTO 408
2000 FOR G=1TO 2
2002 LINE X,Y,4
2010 LINE D,S,4
2020 LINE P,Y,3
2030 &(16)=0;&(17)=40;&(18)=41;&(19)=41;&(20)=194;&(21)=200;&(22)=43;&(23)=0
2040 NEXT G
2045 GOSUB 15000
2050 IF P<X+7IF P>X-7GOTO 10000
2075 GOTO 408
10000 LINE X,Y,4;U=1
10010 LINE X+4,Y-U+3,3
10015 LINE X,Y-U,3
10019 BOX X,Y-1,1,1,3
10020 LINE X,Y,4
10055 &(16)=108;&(17)=109;&(18)=109;&(19)=104;&(20)=109;&(21)=70;&(22)=9;&(23)=0
10060 FOR U=1TO RND (30)+28STEP 1
10070 LINE X+4,Y-U+3,3
10080 LINE X,Y-U,3
10090 NEXT U
10093 &(21)=255;&(23)=255;&(16)=25;&(17)=99
10094 GOSUB 16000
10095 GOSUB 15000
10096 J=J+1
10097 IF J=ZGOTO 11000
10100 GOTO 408
11000 CLEAR ;PRINT "  ALIENS";PRINT K;PRINT "  STAR BASE";PRINT J
14000 PRINT "PRESS    TR 1   TO RESTART
14050 IF TR(1)=1GOTO 1
14075 GOTO 14050
15000 FOR L=21TO 23;&(L)=0;NEXT L;RETURN 
16000 X=RND (150)-75;Y=RND (15)+20;D=-X;S=-Y;RETURN 
>:RETURN ;RUN 
